home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / learnvb5 / exercise.frm < prev    next >
Text File  |  1998-04-18  |  14KB  |  451 lines

  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
  3. Begin VB.Form frmStudent 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Student Profile"
  6.    ClientHeight    =   4485
  7.    ClientLeft      =   1185
  8.    ClientTop       =   1515
  9.    ClientWidth     =   6690
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    PaletteMode     =   1  'UseZOrder
  14.    ScaleHeight     =   4485
  15.    ScaleWidth      =   6690
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Frame Frame3 
  18.       Caption         =   "Picture"
  19.       BeginProperty Font 
  20.          Name            =   "MS Sans Serif"
  21.          Size            =   9.75
  22.          Charset         =   0
  23.          Weight          =   700
  24.          Underline       =   0   'False
  25.          Italic          =   -1  'True
  26.          Strikethrough   =   0   'False
  27.       EndProperty
  28.       Height          =   3252
  29.       Left            =   4560
  30.       TabIndex        =   20
  31.       Top             =   720
  32.       Width           =   1932
  33.       Begin VB.CommandButton cmdLoad 
  34.          Caption         =   "&Load Picture"
  35.          Height          =   492
  36.          Left            =   360
  37.          TabIndex        =   23
  38.          Top             =   2640
  39.          Width           =   1212
  40.       End
  41.       Begin VB.Image imgStudent 
  42.          BorderStyle     =   1  'Fixed Single
  43.          Height          =   2292
  44.          Left            =   120
  45.          Stretch         =   -1  'True
  46.          Top             =   240
  47.          Width           =   1692
  48.       End
  49.    End
  50.    Begin VB.CommandButton cmdExit 
  51.       Caption         =   "E&xit"
  52.       Height          =   492
  53.       Left            =   2760
  54.       TabIndex        =   19
  55.       Top             =   3720
  56.       Width           =   1092
  57.    End
  58.    Begin VB.CommandButton cmdNew 
  59.       Caption         =   "&New Profile"
  60.       Height          =   492
  61.       Left            =   2760
  62.       TabIndex        =   6
  63.       Top             =   3120
  64.       Width           =   1092
  65.    End
  66.    Begin VB.CommandButton cmdShow 
  67.       Caption         =   "&Show Profile"
  68.       Height          =   495
  69.       Left            =   2760
  70.       TabIndex        =   5
  71.       Top             =   2520
  72.       Width           =   1095
  73.    End
  74.    Begin VB.Frame Frame4 
  75.       Caption         =   "Grade Level"
  76.       BeginProperty Font 
  77.          Name            =   "MS Sans Serif"
  78.          Size            =   9.75
  79.          Charset         =   0
  80.          Weight          =   700
  81.          Underline       =   0   'False
  82.          Italic          =   -1  'True
  83.          Strikethrough   =   0   'False
  84.       EndProperty
  85.       Height          =   2532
  86.       Left            =   120
  87.       TabIndex        =   4
  88.       Top             =   1800
  89.       Width           =   1932
  90.       Begin VB.OptionButton optLevel 
  91.          Caption         =   "Grade 6"
  92.          Height          =   255
  93.          Index           =   5
  94.          Left            =   120
  95.          TabIndex        =   22
  96.          Top             =   2160
  97.          Width           =   1335
  98.       End
  99.       Begin VB.OptionButton optLevel 
  100.          Caption         =   "Grade 5"
  101.          Height          =   255
  102.          Index           =   4
  103.          Left            =   120
  104.          TabIndex        =   21
  105.          Top             =   1800
  106.          Width           =   1335
  107.       End
  108.       Begin VB.OptionButton optLevel 
  109.          Caption         =   "Grade 4"
  110.          Height          =   255
  111.          Index           =   3
  112.          Left            =   120
  113.          TabIndex        =   18
  114.          Top             =   1440
  115.          Width           =   1335
  116.       End
  117.       Begin VB.OptionButton optLevel 
  118.          Caption         =   "Grade 3"
  119.          Height          =   255
  120.          Index           =   2
  121.          Left            =   120
  122.          TabIndex        =   17
  123.          Top             =   1080
  124.          Width           =   1215
  125.       End
  126.       Begin VB.OptionButton optLevel 
  127.          Caption         =   "Grade 2"
  128.          Height          =   255
  129.          Index           =   1
  130.          Left            =   120
  131.          TabIndex        =   16
  132.          Top             =   720
  133.          Width           =   1335
  134.       End
  135.       Begin VB.OptionButton optLevel 
  136.          Caption         =   "Grade 1"
  137.          Height          =   255
  138.          Index           =   0
  139.          Left            =   120
  140.          TabIndex        =   15
  141.          Top             =   360
  142.          Value           =   -1  'True
  143.          Width           =   1215
  144.       End
  145.    End
  146.    Begin VB.Frame Frame2 
  147.       Caption         =   "Sex"
  148.       BeginProperty Font 
  149.          Name            =   "MS Sans Serif"
  150.          Size            =   9.75
  151.          Charset         =   0
  152.          Weight          =   700
  153.          Underline       =   0   'False
  154.          Italic          =   -1  'True
  155.          Strikethrough   =   0   'False
  156.       EndProperty
  157.       Height          =   1095
  158.       Left            =   120
  159.       TabIndex        =   3
  160.       Top             =   600
  161.       Width           =   2055
  162.       Begin VB.OptionButton optSex 
  163.          Caption         =   "Female"
  164.          Height          =   255
  165.          Index           =   1
  166.          Left            =   120
  167.          TabIndex        =   14
  168.          Top             =   720
  169.          Width           =   1695
  170.       End
  171.       Begin VB.OptionButton optSex 
  172.          Caption         =   "Male"
  173.          Height          =   255
  174.          Index           =   0
  175.          Left            =   120
  176.          TabIndex        =   13
  177.          Top             =   360
  178.          Value           =   -1  'True
  179.          Width           =   1695
  180.       End
  181.    End
  182.    Begin VB.Frame Frame1 
  183.       Caption         =   "Date of Birth"
  184.       BeginProperty Font 
  185.          Name            =   "MS Sans Serif"
  186.          Size            =   9.75
  187.          Charset         =   0
  188.          Weight          =   700
  189.          Underline       =   0   'False
  190.          Italic          =   -1  'True
  191.          Strikethrough   =   0   'False
  192.       EndProperty
  193.       Height          =   1815
  194.       Left            =   2400
  195.       TabIndex        =   2
  196.       Top             =   600
  197.       Width           =   1935
  198.       Begin VB.VScrollBar vsbYear 
  199.          Height          =   375
  200.          Left            =   1560
  201.          Max             =   1800
  202.          Min             =   2100
  203.          TabIndex        =   12
  204.          Top             =   1320
  205.          Value           =   1960
  206.          Width           =   255
  207.       End
  208.       Begin VB.VScrollBar vsbDay 
  209.          Height          =   375
  210.          Left            =   1560
  211.          Max             =   1
  212.          Min             =   31
  213.          TabIndex        =   11
  214.          Top             =   840
  215.          Value           =   1
  216.          Width           =   255
  217.       End
  218.       Begin VB.VScrollBar vsbMonth 
  219.          Height          =   375
  220.          Left            =   1560
  221.          Max             =   1
  222.          Min             =   12
  223.          TabIndex        =   10
  224.          Top             =   360
  225.          Value           =   1
  226.          Width           =   255
  227.       End
  228.       Begin VB.Label lblYear 
  229.          Alignment       =   2  'Center
  230.          BackColor       =   &H00FFFFFF&
  231.          BorderStyle     =   1  'Fixed Single
  232.          BeginProperty Font 
  233.             Name            =   "MS Sans Serif"
  234.             Size            =   9.75
  235.             Charset         =   0
  236.             Weight          =   400
  237.             Underline       =   0   'False
  238.             Italic          =   0   'False
  239.             Strikethrough   =   0   'False
  240.          EndProperty
  241.          Height          =   375
  242.          Left            =   120
  243.          TabIndex        =   9
  244.          Top             =   1320
  245.          Width           =   1455
  246.       End
  247.       Begin VB.Label lblDay 
  248.          Alignment       =   2  'Center
  249.          BackColor       =   &H00FFFFFF&
  250.          BorderStyle     =   1  'Fixed Single
  251.